NT Sources/Infomagic - NT Source Volume 1 (Disc 1 of 2).iso/graphics/bbdemo.exe/_SETUP.1/ADDEDIMG.dll/RCDATA/TSCANFORM/TSCANFORM.txt

Text File | 1998-01-29 | 13KB | 531 lines

object ScanForm: TScanForm
  Left = 105
  Top = 148
  BorderStyle = bsDialog
  Caption = 'Scan/Download from Digital Camera'
  ClientHeight = 294
  ClientWidth = 686
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 3
    Top = 4
    Width = 679
    Height = 285
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Visible = False
    object StopButn: TButton
      Left = 308
      Top = 233
      Width = 75
      Height = 25
      Caption = 'Stop'
      TabOrder = 0
      OnClick = StopButnClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 10
    Top = 5
    Width = 649
    Height = 196
    Caption = '&1. Image(s)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label4: TLabel
      Left = 400
      Top = 73
      Width = 26
      Height = 13
      Caption = 'Order'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox2: TGroupBox
      Left = 465
      Top = 15
      Width = 169
      Height = 173
      Caption = 'Previe&w'
      TabOrder = 9
    end
    object Button5: TButton
      Left = 18
      Top = 23
      Width = 75
      Height = 25
      Hint = 'Select Scanner'
      Caption = '&Select'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Button5Click
    end
    object AutoPreviewCheck: TCheckBox
      Left = 490
      Top = 30
      Width = 99
      Height = 17
      Caption = 'Auto Create'
      State = cbChecked
      TabOrder = 1
      OnClick = AutoPreviewCheckClick
    end
    object Button1: TButton
      Left = 358
      Top = 23
      Width = 75
      Height = 25
      Caption = 'Remo&ve All'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button1Click
    end
    object AllButn: TButton
      Left = 188
      Top = 23
      Width = 75
      Height = 25
      Caption = 'Acq&uire All'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = AllButnClick
    end
    object MultipleButn: TButton
      Left = 102
      Top = 23
      Width = 75
      Height = 25
      Caption = 'Ac&quire'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = MultipleButnClick
    end
    object wwDBGrid1: TwwDBGrid
      Left = 20
      Top = 61
      Width = 350
      Height = 100
      Selected.Strings = (
        'Image Name'#9'39'#9'Images Scanned')
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Color = clBtnFace
      DataSource = wwDataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      TabOrder = 5
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -12
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = False
      IndicatorColor = icBlack
    end
    object UpButn: TButton
      Left = 401
      Top = 94
      Width = 25
      Height = 20
      Hint = 'Move Up'
      Caption = '�'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = UpButnClick
    end
    object DownButn: TButton
      Left = 401
      Top = 122
      Width = 25
      Height = 20
      Hint = 'Move Down'
      Caption = '�'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = DownButnClick
    end
    object RemoveButn: TButton
      Left = 273
      Top = 23
      Width = 75
      Height = 25
      Caption = '&Remove'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = RemoveButnClick
    end
  end
  object Image: TGroupBox
    Left = 11
    Top = 208
    Width = 446
    Height = 69
    Caption = '&2. Destination'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label2: TLabel
      Left = 68
      Top = 30
      Width = 29
      Height = 13
      Caption = '&Album'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object wwDBLookupComboDlg1: TwwDBLookupComboDlg
      Left = 110
      Top = 26
      Width = 252
      Height = 21
      GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
      GridColor = clWhite
      GridTitleAlignment = taLeftJustify
      Caption = 'Lookup'
      MaxWidth = 0
      MaxHeight = 209
      Selected.Strings = (
        'Album'#9'30'#9'Album')
      DataField = 'Album ID'
      DataSource = DataSource2
      LookupTable = AlbumTable
      LookupField = 'Album ID'
      SeqSearchOptions = [ssoEnabled, ssoCaseSensitive]
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
  end
  object OKButn: TButton
    Left = 490
    Top = 232
    Width = 75
    Height = 25
    Caption = '&OK'
    ModalResult = 1
    TabOrder = 2
    OnClick = OKBtnClick
  end
  object CancelButn: TButton
    Left = 574
    Top = 232
    Width = 75
    Height = 25
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object Panel2: TPanel
    Left = 500
    Top = 58
    Width = 126
    Height = 126
    BevelOuter = bvLowered
    Caption = 'Panel2'
    TabOrder = 5
    object DBImage1: TDBImage
      Left = 1
      Top = 1
      Width = 124
      Height = 124
      BorderStyle = bsNone
      DataField = 'Thumbnail'
      DataSource = wwDataSource2
      ParentColor = True
      TabOrder = 0
      OnDblClick = CreateDblClick
    end
  end
  object OpenDialog1: TOpenDialog
    Filter =
      'All Files|*.*|*.bmp|*.bmp|*.pcx|*.pcx|*.gif|*.gif|*.jpg|*.jpg|*.' +
      'tif|*.tif|*.tga|*.tga|*.wmf|*.wmf|*.pcd|*.pcd|*.eps|*.eps|All Gr' +
      'aphic Files|*.bmp;*.pcx;*.gif;*.jpg;*.tif;*.tga;*.wmf;*.pcd;*.ep' +
      's;'
    Left = 186
    Top = 75
  end
  object DataSource2: TwwDataSource
    DataSet = FotoTable
    Left = 158
    Top = 103
  end
  object FotoTable: TwwTable
    DatabaseName = 'BOWERBIRD'
    IndexFieldNames = 'Album ID;Picture Number'
    TableName = 'FOTOINFO.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 130
    Top = 103
    object FotoTableAlbumID: TStringField
      FieldName = 'Album ID'
      Size = 8
    end
    object FotoTablePictureNumber: TIntegerField
      FieldName = 'Picture Number'
    end
    object FotoTablePosition: TIntegerField
      FieldName = 'Position'
    end
    object FotoTableDateTaken: TDateField
      FieldName = 'Date Taken'
    end
    object FotoTableApproximateDateTaken: TBooleanField
      FieldName = 'Approximate Date Taken'
    end
    object FotoTableDateEntered: TDateField
      FieldName = 'Date Entered'
    end
    object FotoTableCaption: TStringField
      FieldName = 'Caption'
      Size = 60
    end
    object FotoTableComments: TMemoField
      FieldName = 'Comments'
      BlobType = ftMemo
      Size = 20
    end
    object FotoTableSubstituteImage: TBooleanField
      FieldName = 'Substitute Image'
    end
    object FotoTableNoImage: TBooleanField
      FieldName = 'No Image'
    end
    object FotoTableActualFileName: TStringField
      FieldName = 'Actual File Name'
      Size = 200
    end
    object FotoTableImageReference: TBooleanField
      FieldName = 'Image Reference'
    end
    object FotoTableReferenceVolumeLabel: TStringField
      FieldName = 'Reference Volume Label'
      Size = 11
    end
    object FotoTableImageType: TStringField
      FieldName = 'Image Type'
      Size = 4
    end
    object FotoTableImageWidth: TIntegerField
      FieldName = 'Image Width'
    end
    object FotoTableImageHeight: TIntegerField
      FieldName = 'Image Height'
    end
    object FotoTableImageBitsperpixel: TIntegerField
      FieldName = 'Image Bits per pixel'
    end
    object FotoTableImagePlanes: TIntegerField
      FieldName = 'Image Planes'
    end
    object FotoTableImageColours: TIntegerField
      FieldName = 'Image Colours'
    end
    object FotoTableImagePages: TIntegerField
      FieldName = 'Image Pages'
    end
    object FotoTableImageCompression: TStringField
      FieldName = 'Image Compression'
    end
    object FotoTableImageSize: TIntegerField
      FieldName = 'Image Size'
    end
    object FotoTableCopyrightRestricted: TBooleanField
      FieldName = 'Copyright Restricted'
    end
    object FotoTableCopyrightInformation: TStringField
      FieldName = 'Copyright Information'
      Size = 50
    end
    object FotoTableThumbnail: TGraphicField
      FieldName = 'Thumbnail'
      BlobType = ftGraphic
      Size = 1
    end
  end
  object SlidTable: TwwTable
    TableName = 'h:\nemo\AAAAAAAA.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 186
    Top = 103
    object SlidTablePictureNumber: TIntegerField
      FieldName = 'Picture Number'
    end
    object SlidTablePictureType: TStringField
      FieldName = 'Picture Type'
      Size = 6
    end
    object SlidTablePicture: TBlobField
      FieldName = 'Picture'
      BlobType = ftBlob
      Size = 1
    end
  end
  object DataSource4: TwwDataSource
    DataSet = SlidTable
    Left = 214
    Top = 103
  end
  object AlbumTable: TwwTable
    DatabaseName = 'BOWERBIRD'
    TableName = 'LKALBUM.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 130
    Top = 131
    object AlbumTableAlbumID: TStringField
      FieldName = 'Album ID'
      Size = 8
    end
    object AlbumTableAlbum: TStringField
      FieldName = 'Album'
      Size = 30
    end
    object AlbumTableLocation: TStringField
      FieldName = 'Location'
      Size = 255
    end
    object AlbumTableTableName: TStringField
      FieldName = 'Table Name'
      Size = 8
    end
    object AlbumTableTableCreated: TBooleanField
      FieldName = 'Table Created'
    end
    object AlbumTableVolumeLabel: TStringField
      FieldName = 'Volume Label'
      Size = 11
    end
    object AlbumTableComments: TMemoField
      FieldName = 'Comments'
      BlobType = ftMemo
      Size = 10
    end
  end
  object wwDataSource1: TwwDataSource
    DataSet = AlbumTable
    Left = 158
    Top = 131
  end
  object wwDataSource2: TwwDataSource
    DataSet = ScanTable
    Left = 158
    Top = 75
  end
  object ScanTable: TwwTable
    TableName = 'c:\bbtemp\SCANSTOR.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 130
    Top = 75
    object ScanTableImageName: TStringField
      DisplayLabel = 'Images Scanned'
      DisplayWidth = 39
      FieldName = 'Image Name'
      Size = 50
    end
    object ScanTableImageNumber: TIntegerField
      FieldName = 'Image Number'
      Visible = False
    end
    object ScanTablePageNumber: TIntegerField
      FieldName = 'Page Number'
      Visible = False
    end
    object ScanTableFileName: TStringField
      FieldName = 'File Name'
      Visible = False
      Size = 255
    end
    object ScanTableThumbnail: TGraphicField
      FieldName = 'Thumbnail'
      Visible = False
      BlobType = ftGraphic
      Size = 1
    end
  end
end